home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / PGUIDE / OLECONT / CONTMDI.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-10-15  |  1.3 KB  |  53 lines
  1. VERSION 5.00
  2. Begin VB.MDIForm ParentForm 
  3.    BackColor       =   &H8000000C&
  4.    Caption         =   "OLE Container Control Demo"
  5.    ClientHeight    =   5205
  6.    ClientLeft      =   765
  7.    ClientTop       =   1770
  8.    ClientWidth     =   8025
  9.    LinkTopic       =   "MDIForm1"
  10.    Begin VB.Menu mnuFile 
  11.       Caption         =   "&File"
  12.       NegotiatePosition=   1  'Left
  13.       Begin VB.Menu mnuFileNew 
  14.          Caption         =   "&New..."
  15.       End
  16.       Begin VB.Menu mnuOpen 
  17.          Caption         =   "&Open..."
  18.       End
  19.       Begin VB.Menu sep1 
  20.          Caption         =   "-"
  21.       End
  22.       Begin VB.Menu mnuExit 
  23.          Caption         =   "E&xit"
  24.       End
  25.       Begin VB.Menu sep2 
  26.          Caption         =   "-"
  27.       End
  28.       Begin VB.Menu mnuAbout 
  29.          Caption         =   "A&bout..."
  30.       End
  31.    End
  32. Attribute VB_Name = "ParentForm"
  33. Attribute VB_GlobalNameSpace = False
  34. Attribute VB_Creatable = False
  35. Attribute VB_PredeclaredId = True
  36. Attribute VB_Exposed = False
  37. Option Explicit
  38. Private Sub MDIForm_Load()
  39.     ChDir App.Path
  40. End Sub
  41. Private Sub mnuAbout_Click()
  42.     DisplayInstructions
  43. End Sub
  44. Private Sub mnuExit_Click()
  45.     End
  46. End Sub
  47. Private Sub mnuFileNew_Click()
  48.     NewObject
  49. End Sub
  50. Private Sub mnuOpen_Click()
  51.     OpenObject
  52. End Sub
  53.